home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 July / EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso / earcd / biz / swood / fw_font_.lha / FW_Font-e / FontLook-Auto.fw < prev    next >
Text File  |  1997-04-27  |  5KB  |  223 lines
  1. /* Optimized with RexxOpt 1.7 */
  2.  
  3. R='0A'X
  4. Address='FinalW'
  5. Options results
  6. STATUS PORTNAME
  7. FW=result
  8. address=FW
  9. SIGNAL ON BREAK_C
  10. 'ShowMessage 2 0 "FontLook - Auto V2.72" "for Font-Directories..." "(©) Heiko Schröder - 97/04/27" ":-)" "Ok" "(-:"'
  11. 'ShowMessage 1 1 "A T T E N T I O N !" "The macro needs an empty document." "Clear the document?" "Yes" "Abort" ""'
  12. if result=2 then call BREAK_C
  13. Cleardoc Force
  14. 'ShowMessage 2 0 "codes or layout" "" "" "codes" "layout" ""'
  15. cl=result
  16. 'ShowMessage 2 0 "Screen output?" "" "" "normal" "speed" ""'
  17. ba=result
  18. Temp="ram:fonts"
  19. if ~show('L',"rexxreqtools.library") then;do
  20. if ~addlib('rexxreqtools.library',0,-30,0) then;do
  21. 'ShowMessage 1 1 "Error...." "I need the RexxReqTools.library" " E N D ! !" "Okay" "" ""'
  22. exit
  23. end
  24. end
  25. dir=rtfilerequest("FWFonts/SWOLFonts/",,"Select a directory...",,"rt_pubscrname=FinalWriterPubScreen rtfi_flags = freqf_nofiles")
  26. if dir="" then;do
  27. 'ShowMessage 1 1 "No directory selected!" " E N D ! !" "" "Okay" "" ""'
  28. exit
  29. end
  30. dir=d2c(34)||dir||d2c(34)
  31. address command 'list ' dir||' to=' Temp||' files lformat "%s%s"'
  32. if OPEN('file',Temp,"R") then
  33. If Seek("file",0,"E")=0 then;do
  34. 'ShowMessage 1 1 "Directory is empty!" " E N D ! !" "" "Okay" "" ""'
  35. address "REXX"
  36. close("file")
  37. EXIT
  38. end
  39. address "REXX"
  40. close("file")
  41. address command 'sort ' Temp Temp
  42. OPEN('file',Temp,"R")
  43. address(FW)
  44. 'ShowMessage 1 0 "Do you need perforation signs?" "" "" "Yes" "No" ""'
  45. lm=result
  46. 'ShowMessage 1 0 "Whats next?" "" "" "save" "save + print" "print"'
  47. wgw=result
  48. DO WHILE 1
  49. FontName=ReadLn('file')
  50. IF EOF('file') THEN;do
  51. address "REXX"
  52. close('file')
  53. call Ende
  54. End
  55. IF ba=2 THEN;DO
  56. status WINDOW
  57. parse VAR result links oben width height minwidth minheight maxwidth maxheight
  58. sizewindow minwidth minheight
  59. End
  60. GetDocItemPrefs Decimal
  61. Punkt=Result
  62. If Punkt="Comma" then DocItemPrefs Decimal Period
  63. TextTool
  64. Font FontName
  65. a=RC
  66. If a=0 then;do
  67. Type d2c(32)
  68. BackSpace
  69. status FontPath
  70. FullFontName=result
  71. pos=max(index(FullFontName,':'),lastpos('/',FullFontName))
  72. IF (pos~=0) THEN
  73. FontName=RIGHT(FullFontName,LENGTH(FullFontName)-pos)
  74. END
  75. IF ba=2 THEN View 20
  76. GraphicTool
  77. Pagesetup Pagetype A4 Orient Tall Top 0 Bottom 2.54 Left 0 Right 0
  78. SectionSetup Top 2.54 Bottom 2.54 Inside 2 Outside 1
  79. LinePrefs LineWt .5
  80. DrawLine 1 2 3.5 20 3.5
  81. DrawLine 1 2 26 20 26
  82. If lm=1 then DrawLine 1 0.5 14.85 1 14.85
  83. TextTool
  84. If cl=1 then;do
  85. Do i=0 to 13
  86. SetTab i*1.3+0.8 Right
  87. End
  88. NameFont="FWDocs/Codes-"||FontName
  89. Justify Center
  90. Font Softsans
  91. FontSize 18
  92. Type FontName||R||R
  93. a=0
  94. DO w=1 to 15
  95. Font Softsans
  96. FontSize 8
  97. DO x=a+33 to a+46
  98. Type d2c(9)||x|| d2c(32)|| d2c(x)
  99. END
  100. Type R
  101. Font FontName
  102. FontSize 24
  103. DO x=a+33 to a+46
  104. Type d2c(9)
  105. Type d2c(x)
  106. END
  107. Type R
  108. a=a+14
  109. END
  110. Font Softsans
  111. FontSize 8
  112. DO x=a+33 to a+45
  113. Type d2c(9)||x|| d2c(32)|| d2c(x)
  114. END
  115. Type d2c(9)||R
  116. Font FontName
  117. FontSize 24
  118. DO x=a+33 to a+45
  119. Type d2c(9)
  120. Type d2c(x)
  121. END
  122. Type d2c(9)||R
  123. FontSize 12
  124. Type d2c(9)||R
  125. Font Softsans
  126. FontSize 8
  127. Justify Right
  128. Type Date(O)" - "FullFontName
  129. END
  130. If cl=2 then;do
  131. Justify Center
  132. NameFont="FWDocs/Layout-"||FontName
  133. Font Softsans
  134. FontSize 18
  135. Type FontName||R
  136. Justify Left
  137. Font FontName
  138. FontSize 8
  139. Type R||"This is 8-point type - not easy to read!"||R
  140. FontSize 9
  141. Type "9-Point type is about the smallest readable size."||R
  142. FontSize 10
  143. Type "With 10-point type, we have a normal text size."||R
  144. FontSize 12
  145. Type "With some fonts, 12-point type is easier to read."||R
  146. FontSize 14
  147. Type "14-point type is good for subheadings."||R
  148. FontSize 16
  149. Type "For larger subheadings, try 16-point type."||R
  150. FontSize 18
  151. Type "18-point type makes nice small headlines."||R
  152. FontSize 24
  153. Type "24-point type is for medium headlines."||R
  154. FontSize 36
  155. Type "36-point is for larger ones."||R
  156. FontSize 48
  157. Type "48-point almost shouts!"||R||R
  158. FontSize 12
  159. Font SoftSans
  160. Type "NORMAL"||R
  161. FontSize 10
  162. Font FontName
  163. Type "ABCDEFGHIJKLMNOPQRSTUVWXYZ"||R
  164. Type "abcdefghijklmnopqrstuvwxyz 1234567890 !@#$%^&*()-+=[]{}/:;,.?"||R
  165. Type "The quick brown fox jumps over the lazy dog."||R||R||R
  166. Font SoftSans
  167. Type "EXTENDED CHARACTERS"||R
  168. FontSize 10
  169. Font FontName
  170. j=0
  171. Do i=1 to 4
  172. Do k=128+j to 159+j
  173. Type d2c(k)
  174. End
  175. Type R
  176. j=j+32
  177. End
  178. Status BodyTextHeight
  179. th=result
  180. FG=26.24-2.113-th
  181. FG=Trunc(FG*8/0.34)
  182. FontSize FG
  183. Type d2c(9)
  184. Font SoftSans
  185. FontSize 8
  186. Type R
  187. Justify Right
  188. Type Date(O)" - "FullFontName
  189. End
  190. call WH
  191. If wgw~=3 then
  192. Save NameFont
  193. If wgw=2 then
  194. Print
  195. If wgw=3 then
  196. Print
  197. Cleardoc force
  198. END
  199. else;do
  200. call WH
  201. 'ShowMessage 1 1 "FW cant display this font..." "Its a non-FW-font..." "" "Okay" "" ""'
  202. end
  203. END
  204. Ende:
  205. address(FW)
  206. If cl=1 then 'ShowMessage 2 1 "You can find the documents in the FWDocs-Drawer." "Recognizable on «Codes-.....«" "Thanx for use." "@-`-" "Please" ":-))"'
  207. If cl=2 then 'ShowMessage 2 1 "You can find the documents in the FWDocs-Drawer." "Recognizable on «Layout-.....«" "Thanx for use." "@-`-" "Please" ":-))"'
  208. Address command "delete ram:fonts QUIET"
  209. EXIT
  210. BREAK_C:
  211. 'ShowMessage 1 1 "Macro aborted..." "" "" "I know..." "" ""'
  212. call WH
  213. address "REXX"
  214. CLOSE("file")
  215. Address command "delete ram:fonts QUIET"
  216. EXIT
  217. WH:
  218. If ba=2 then;do
  219. View
  220. sizewindow width height
  221. End
  222. If Punkt="Comma" then DocItemPrefs DECIMAL Comma
  223. Return